home *** CD-ROM | disk | FTP | other *** search
/ B Soft 1 / B-Soft_1_19xx_Maik__Mike_de_Side_A.d64 / chart run mj (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  12KB  |  390 lines
  1. 10 printchr$(142)"[147]":poke53281,4:poke53280,4:poke808,254:printchr$(8)
  2. 20 print""
  3. 30 print"  [213][195][195][195][195][195][195][195][195][174] [176][195][174][213][195][195][195][195][195][201][176][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  4. 40 print"  [194] [213][195][195][195][195][174] [194] [194] [194][194] [213][195][201] [194][194] [176][195][201] [176][195][195][174] [176][195][189]"
  5. 50 print"  [194] [194]    [194] [173][195][189] [194][194] [173][195][189] [194][194] [194] [194] [194]  [194] [194]"
  6. 60 print"  [194] [194]    [194] [176][195][174] [194][194] [176][195][174] [194][194] [173][195][203][213][203]  [194] [194]"
  7. 70 print"  [194] [202][195][195][195][174][194] [194] [194] [173][189] [194] [194] [173][189] [176][201] [202][201]  [194] [194]"
  8. 80 print"  [202][195][195][195][195][195][189][173][195][189] [173][195][195][195][195][189] [173][195][195][195][195][189][173][195][195][189]  [173][195][189]":print:print
  9. 90 print"        [176][195][195][195][195][195][195][195][195][174] [176][195][174][176][195][195][195][195][201][176][195][174]"
  10. 92 print"        [194] [176][195][201] [176][174] [194] [194] [194][194] [176][201] [194][194] [194]"
  11. 94 print"        [194] [194] [194] [194][194] [194] [194] [194][194] [194][194] [194][194] [194]"
  12. 95 print"        [194] [173][195][203][213][203][194] [194] [194] [194][194] [194][194] [194][194] [194]"
  13. 96 print"        [194] [176][201] [202][201][194] [202][195][203] [173][189] [194][194] [173][203] [194]"
  14. 97 print"        [173][195][189][173][195][195][189][202][195][195][195][195][195][195][195][195][189][173][195][195][195][195][203]"
  15. 98 print:print:print:print
  16. 99 print"[144]         1990 geschrieben von":print:print
  17. 100 print"[158]              mr. joker"
  18. 110 forx=1to1500:nextx
  19. 120 print:print:print:print:print:print:print:print
  20. 130 print:print:print:print:print:print:print:print
  21. 140 print:print:print:print:print:print:print:print:print
  22. 150 tu=0:a=0:b=0:c=0:d=0:e=0:f=0:g=0:h=0:al=(a+b+c+d+e+f+g+h)*1
  23. 160 v=0:a$="unbesetzt":b$="unbesetzt":c$="unbesetzt":d$="unbesetzt"
  24. 170 e$="unbesetzt":f$="keiner":g$="keine":h$="keine"
  25. 180 gl=30000:mn=0:ur=0:ft=0:ep=0
  26. 185 print"[147][212][197][216][212]-[199][193][205][197] [201][201]: [195][200][193][210][212][160][210][213][206]"
  27. 190 print" [215]ritten by [205]r. [202]oker 1990":print" [201]mproved by [202]ack the [210]apper 1993"
  28. 195 input" [215]ie soll [201]hre [194]and heissen";ne$
  29. 200 ur=int(1000*rnd(1))+1
  30. 210 if ur<400 then goto 200
  31. 220 if ur>800 then goto 240
  32. 230 print:print" [211]ie bekommen einen [213]ebungsraum fuer"
  33. 235 print:print ur;"$ im [205]onat!":goto250
  34. 240 print:print" [211]ie bekommen eine [213]ebungshalle fuer"
  35. 245 print:print ur;"$ im [205]onat!"
  36. 250 print" [215]ieviele [202]ahre moechten [211]ie spielen?    (0-9)";mz$
  37. 255 getmz$:ifmz$=""then255
  38. 260 if mz$="1"then m=12:goto1000
  39. 270 if mz$="2"then m=24:goto1000
  40. 280 if mz$="3"then m=36:goto1000
  41. 290 if mz$="4"then m=48:goto1000
  42. 300 if mz$="5"then m=60:goto1000
  43. 310 if mz$="6"then m=72:goto1000
  44. 320 if mz$="7"then m=84:goto1000
  45. 830 if mz$="8"then m=96:goto1000
  46. 840 if mz$="9"then m=108:goto1000
  47. 842 if mz$="0"thenprint" [196]ann eben nicht, [204]oser...":forx=1to1500:nextx:print"[147]":run
  48. 900 goto255
  49. 1000 f=0:f$="keiner":mn=mn+1:gl=gl-ur
  50. 1001 ifgl<-250000thengoto40000
  51. 1002 ifsc=1thengoto50000
  52. 1010 print"[147]":print
  53. 1020 if a=0 then print" [211]ie haben noch keine/n [211]aenger/in!":print
  54. 1030 print" [206]euen [211]aenger?"
  55. 1040 getx$:ifx$=""then1040
  56. 1050 ifx$="n"then goto 2000
  57. 1051 ifx$="j"then goto 1060
  58. 1052 goto1040
  59. 1060 ab=int(2*rnd(1))+1:bc=int(13*rnd(1))+1
  60. 1070 onab goto1080,1090
  61. 1080 onbc goto1100,1110,1120,1130,1140,1150,1160,1170,1180,1190,1200,1210,1220
  62. 1090 onbc goto1230,1240,1250,1260,1270,1280,1290,1300,1310,1320,1330,1340,1350
  63. 1100 a$="[206]ick [203]amen":a=2:aa=1000:goto1900
  64. 1110 a$="[202]ohan [200]oelzel":a=2:aa=1000:goto1900
  65. 1120 a$="[196]iana [210]oss":a=3:aa=2500:goto1900
  66. 1130 a$="[194]ruce [196]ickinson":a=4:aa=7000:goto1900
  67. 1140 a$="[194]illy [201]dol":a=5:aa=4000:goto1900
  68. 1150 a$="[204]uke [199]oss":a=3:aa=4000:goto1900
  69. 1160 a$="[206]eneh [195]herry":a=3:aa=3000:goto1900
  70. 1170 a$="[193]nnie [204]ennox":a=3:aa=3000:goto1900
  71. 1180 a$="[212]erence [212]rent [196]'[193]rby":a=2:aa=3000:goto1900
  72. 1190 a$="[208]eter [205]affay":a=3:aa=5500:goto1900
  73. 1200 a$="[204]isa [211]tansfield":a=4:aa=6200:goto1900
  74. 1210 a$="[203]ylie [205]inouge":a=4:aa=5000:goto1900
  75. 1220 a$="[202]ason [196]onovan":a=3:aa=4300:goto1900
  76. 1230 a$="[197]ros [210]amazotti":a=4:aa=3300:goto1900
  77. 1240 a$="[211]andra [195]retu":a=5:aa=4900:goto1900
  78. 1250 a$="[211]ebastian [194]ach":a=5:aa=5000:goto1900
  79. 1260 a$="[202]immy [211]ommerville":a=1:aa=4000:goto1900
  80. 1270 a$="[208]aula [193]bdul":a=5:aa=6000:goto1900
  81. 1280 a$="[210]obin [194]eck":a=4:aa=5000:goto1900
  82. 1290 a$="[205]andy [215]inter":a=1:aa=2100:goto1900
  83. 1300 a$="[195]indy [204]auper":a=5:aa=7200:goto1900
  84. 1310 a$="[203]im [215]ilde":a=4:aa=4800:goto1900
  85. 1320 a$="[196]avid [200]asselhoff":a=1:aa=1000:goto1900
  86. 1330 a$="[196]avid [199]ahan":a=5:aa=4300:goto1900
  87. 1340 a$="[196]an [200]arrow":a=4:aa=5000:goto1900
  88. 1350 a$="[196]on [202]ohnson":a=2:aa=8000:goto1900
  89. 1900 print:print" ";a$;" ist in [201]hrer [194]and!":al=a
  90. 1910 forx=1to1000:nextx
  91. 2000 print"[147]":print
  92. 2010 if b=0 then print" [211]ie haben noch keinen [199]itarristen!":print
  93. 2020 print" [206]euen [199]itarristen?"
  94. 2030 getx$:ifx$=""then 2030
  95. 2040 ifx$="n"then goto3000
  96. 2041 ifx$="j"thengoto2050
  97. 2042 goto2030
  98. 2050 cd=int(12*rnd(1))+1
  99. 2060 oncd goto 2100,2110,2120,2130,2140,2150,2160,2170,2180,2190,2200,2210
  100. 2100 b$="[217]ngwie [205]almsteen":b=5:bb=4900:goto2900
  101. 2110 b$="[197]ric [195]lapton":b=5:bb=10000:goto2900
  102. 2120 b$="[193]ndrew [195]oyne":b=2:bb=3000:goto2900
  103. 2130 b$="[195]hris [211]tein":b=3:bb=2300:goto2900
  104. 2140 b$="[212]homas [211]chier":b=2:bb=1900:goto2900
  105. 2150 b$="[208]er [199]essle":b=4:bb=4100:goto2900
  106. 2160 b$="[202]oe [205]c[201]ntyre":b=1:bb=1900:goto2900
  107. 2170 b$="[202]ohn [211]pinks":b=4:bb=6200:goto2900
  108. 2180 b$="[205]ark [203]nopfler":b=5:bb=3900:goto2900
  109. 2190 b$="[199]ary [205]oore":b=5:bb=9300:goto2900
  110. 2200 b$="[212]revor [211]teel":b=2:bb=2300:goto2900
  111. 2210 b$="[210]ichie [211]ambora":b=5:bb=4900:goto2900
  112. 2900 print:print" ";b$;" ist in [201]hrer [194]and!":al=a+b
  113. 2910 forx=1to1000:nextx
  114. 3000 print"[147]":print
  115. 3010 if c=0 then print" [211]ie haben noch keinen [194]assisten!":print
  116. 3020 print" [206]euen [194]assisten?"
  117. 3030 getx$:ifx$=""then3030
  118. 3031 ifx$="j"thengoto3050
  119. 3040 ifx$="n"then goto 4000
  120. 3042 goto3030
  121. 3050 de=int(9*rnd(1))+1
  122. 3060 onde goto 3100,3110,3120,3130,3140,3150,3160,3170,3180
  123. 3100 c$="[206]orma [195]ook":c=3:cc=2900:goto3900
  124. 3110 c$="[202]ohannes [211]chaefer":c=4:cc=3800:goto3900
  125. 3120 c$="[205]arco [204]iebing":c=3:cc=2900:goto3900
  126. 3130 c$="[200]agen [204]iebing":c=2:cc=2400:goto3900
  127. 3140 c$="[212]ony [194]owers":c=5:cc=4900:goto3900
  128. 3150 c$="[212]ilman [213]hrmacher":c=1:cc=3000:goto3900
  129. 3160 c$="[212]ony [204]ewis":c=3:cc=3000:goto3900
  130. 3170 c$="[202]ohnnie [195]hristo":c=2:cc=2400:goto3900
  131. 3180 c$="[195]hristoph [203]aiser":c=2:cc=2100:goto3900
  132. 3900 print:print" ";c$;" ist in [201]hrer [194]and!":al=a+b+c
  133. 3910 forx=1to1000:nextx
  134. 4000 print"[147]":print
  135. 4010 if d=0 then print" [211]ie haben noch keinen [203]eyboarder!":print
  136. 4020 print" [206]euen [203]eyboarder?"
  137. 4030 getx$:ifx$=""then4030
  138. 4032 ifx$="j"thengoto4050
  139. 4040 ifx$="n"then goto 5000
  140. 4042 goto4030
  141. 4050 ef=int(13*rnd(1))+1
  142. 4060 onef goto 4100,4110,4120,4130,4140,4150,4160,4170,4180,4190,4200,4210,4220
  143. 4100 d$="[208]aul [215]alden":d=4:dd=4600:goto4900
  144. 4110 :d$="[205]ichael [208]. [211]zumowski":d=2:dd=2000:goto4900
  145. 4120 d$="[211]ydney [217]oungblood":d=3:dd=4100:goto4900
  146. 4130 d$="[199]erd [196]rnek":d=3:dd=2100:goto4900
  147. 4140 d$="[210]ichard [205]arx":d=5:dd=4700:goto4900
  148. 4150 d$="[198]ritz [205]c[201]ntyre":d=4:dd=5000:goto4900
  149. 4160 d$="[202]ordan [203]night":d=5:dd=6200:goto4900
  150. 4170 d$="[205]ike [211]taab":d=5:dd=7900:goto4900
  151. 4180 d$="[212]homas [193]nders":d=1:dd=100:goto4900
  152. 4190 d$="[204]ouis [207]berlaender":d=3:dd=3000:goto4900
  153. 4200 d$="[195]hris [204]owe":d=4:dd=4800:goto4900
  154. 4210 d$="[196]avid [194]ryan":d=5:dd=4000:goto4900
  155. 4220 d$="[193]ndy [194]ell":d=3:dd=2900:goto4900
  156. 4900 print:print" ";d$;" ist in [201]hrer [194]and!":al=a+b+c+d
  157. 4910 forx=1to1000:nextx
  158. 5000 print"[147]":print
  159. 5010 if e=0 then print" [211]ie haben noch keinen [196]rummer!":print
  160. 5020 print" [206]euen [196]rummer?"
  161. 5030 getx$:ifx$=""then5030
  162. 5032 ifx$="j"thengoto5050
  163. 5040 ifx$="n"then goto 6000
  164. 5044 goto5030
  165. 5050 fg=int(13*rnd(1))+1
  166. 5060 onfg goto 5100,5110,5120,5130,5140,5150,5160,5170,5180,5190,5200,5210,5220
  167. 5100 e$="[208]hil [195]ollins":e=5:ee=5100:goto5900
  168. 5110 e$="[200]ansi [194]ehrendt":e=3:ee=4100:goto5900
  169. 5120 e$="[196]arryl [211]ims":e=2:ee=1800:goto5900
  170. 5130 e$="[210]ainer [211]chuhmann":e=1:ee=500:goto5900
  171. 5140 e$="[205]ichael [200]ibsch":e=4:ee=5300:goto5900
  172. 5150 e$="[196]irk [198]elsenheimer":e=3:ee=3200:goto5900
  173. 5160 e$="[195]hris [202]oyce":e=4:ee=4000:goto5900
  174. 5170 e$="[193]lan [202]ackman":e=2:ee=2800:goto5900
  175. 5180 e$="[208]aul [210]ead":e=1:ee=1200:goto5900
  176. 5190 e$="[205]ilan [218]ekavika":e=3:ee=3000:goto5900
  177. 5200 e$="[211]tefan [210]ager":e=2:ee=4000:goto5900
  178. 5210 e$="[208]eter [199]abriel":e=5:ee=4000:goto5900
  179. 5220 e$="[213]we [200]offmann":e=4:ee=2000:goto5900
  180. 5900 print:print" ";e$;" ist in [201]hrer [194]and!":al=a+b+c+d+e
  181. 5910 forx=1to1000:nextx
  182. 5920 :
  183. 6000 print"[147]":print
  184. 6005 if al>20 then goto 6010
  185. 6007 goto7000
  186. 6010 print" [205]oechten [211]ie diesen [205]onat mit einem":print
  187. 6020 print" [199]aststar auftreten?"
  188. 6030 getx$:ifx$=""then6030
  189. 6040 ifx$="n"then goto7000
  190. 6043 ifx$="j"thengoto6050
  191. 6045 goto6030
  192. 6050 gh=int(11*rnd(1))+1
  193. 6060 if gh<5 then print:print" [197]s will kein [211]tar mit [201]hnen auftreten!":goto6080
  194. 6070 goto6100
  195. 6080 forx=1to1500:nextx
  196. 6090 goto7000
  197. 6100 hi=int(11*rnd(1))+1
  198. 6110 onhi goto 6200,6210,6220,6230,6240,6250,6260,6270,6280,6290,6300
  199. 6200 f$="[205]ichael [202]ackson":f=20:ff=30000:goto6900
  200. 6210 f$="[208]rince":f=17:ff=22000:goto6900
  201. 6220 f$="[193]lice [195]ooper":f=9:ff=10000:goto6900
  202. 6230 f$="[196]avid [194]owie":f=7:ff=6000:goto6900
  203. 6240 f$="[205]adonna":f=20:ff=18000:goto6900
  204. 6250 f$="[212]ina [212]urner":f=19:ff=20000:goto6900
  205. 6260 f$="[202]immie [200]endrix":f=10:ff=32000:goto6900
  206. 6270 f$="[208]aul [205]c[195]artney":f=16:ff=18000:goto6900
  207. 6280 f$="[194]ruce [211]pringsteen":f=18:ff=13000:goto6900
  208. 6290 f$="[213]2":f=20:ff=12000:goto6900
  209. 6300 f$="[205]ichael [211]chenker":f=15:ff=7000:goto6900
  210. 6900 print:print" ";f$;" ist diesem [205]onat "
  211. 6910 print:print" [201]hr [199]aststar!":al=a+b+c+d+e+f
  212. 6920 forx=1to1500:nextx
  213. 7000 print"[147]":print
  214. 7010 if g=1 then goto7500
  215. 7020 print" [205]oechten [211]ie [212]rompeten spielen lassen?"
  216. 7030 getx$:ifx$=""then7030
  217. 7040 ifx$="j"then g=1:goto7500
  218. 7041 ifx$="n"thengoto7500
  219. 7042 goto7040
  220. 7500 ifh=1then goto8000
  221. 7510 print:print" [205]oechten [211]ie [194]ackground-[199]esang haben?"
  222. 7520 getx$:ifx$=""then7520
  223. 7521 ifx$="n"thengoto8000
  224. 7530 ifx$="j"then h=1:goto8000
  225. 7532 goto7520
  226. 8000 if al<29 then goto 10000
  227. 8010 print"[147]":print
  228. 8020 print" [215]ieviele [211]ingles moechten [211]ie drucken?":print
  229. 8030 print" [196]ruecken [211]ie: 1 fuer 10.000 $,":print
  230. 8040 print"               2 fuer 20.000 $,":print
  231. 8050 print"               3 fuer 30.000 $,":print
  232. 8051 print"               4 fuer 40.000 $,":print
  233. 8052 print"               5 fuer 50.000 $,":print
  234. 8053 print"               6 fuer 60.000 $,":print
  235. 8054 print"               7 fuer 70.000 $,":print
  236. 8055 print"               8 fuer 80.000 $,":print
  237. 8060 print"               9 fuer 90.000 $.":print
  238. 8070 getq$:ifq$=""then8070
  239. 8080 if q$="1"then sa=10000:goto8900
  240. 8090 if q$="2"then sa=20000:goto8900
  241. 8100 if q$="3"then sa=30000:goto8900
  242. 8110 if q$="4"then sa=40000:goto8900
  243. 8120 if q$="5"then sa=50000:goto8900
  244. 8130 if q$="6"then sa=60000:goto8900
  245. 8140 if q$="7"then sa=70000:goto8900
  246. 8150 if q$="8"then sa=80000:goto8900
  247. 8160 if q$="9"then sa=90000:goto8900
  248. 8170 goto8070
  249. 8900 print" [196]ie [208]latten werden gedruckt!"
  250. 8910 forx=1to1000:nextx
  251. 9000 print"[147]":print
  252. 9010 print" [205]oechten [211]ie ein [214]ideo drehen?"
  253. 9020 getx$:ifx$=""then9020
  254. 9025 ifx$="j"thengoto9040
  255. 9030 ifx$="n"thengoto10000
  256. 9032 goto9020
  257. 9040 if v>9 then print" [193]us zeitlichen [199]ruenden nicht moeglich!"v=9:goto9980
  258. 9050 v=v+1
  259. 9060 print" [211]ie drehen ab jetzt [201]hr";v;"[157]. [214]ideo!"
  260. 9980 forx=1to1500:nextx
  261. 10000 if ft=1 then goto 11000
  262. 10010 ifal<33 then goto 11000
  263. 10020 print"[147]":print:ft=1
  264. 10030 print" [211]ie haben heute [201]hren ersten":print
  265. 10040 print" [198]ernsehauftritt!":print
  266. 10050 ij=int(5*rnd(1))+1
  267. 10060 onij goto 10070,10080,10090,10100,10110
  268. 10070 print" [211]ie treten in '[210]agazzi' ([210][212][204]) auf, fuer"
  269. 10075 print" 6.000 $.":gl=gl+6000:goto10900
  270. 10080 print" [205][212][214] zahlt ihnen 18.000 $.":gl=gl+18000:goto10900
  271. 10090 print" [196]as [218][196][198] zahlt fuer einen [193]uftritt in":print
  272. 10095 print" '[215]etten dass...?' 7.500 $.":gl=gl+7500:goto10900
  273. 10100 print" [212]ele 5 laesst [211]ie in [208].[207].[208] auftreten.":print
  274. 10105 print" [211]ie verdienen sich 13.500 $.":gl=gl+13500:goto10900
  275. 10110 print" [196]er [196][196][210]-[211]ender [196][198][198] zahlt 4.800 $.":gl=gl+4800:goto10900
  276. 10900 forx=1to2000:nextx
  277. 11000 if ep>0 then goto11100
  278. 11010 if al<42 then goto 11100
  279. 11020 print"[147]":print:ep=ep+1
  280. 11030 print" [211]ie bringen [201]hre 1. [204][208] auf den [205]arkt."
  281. 11040 zf=int(10*rnd(1))+1
  282. 11050 bu=int(29*rnd(1))+1
  283. 11060 sc=100-al-zf-bu
  284. 11070 lp=(100-sc)*1000
  285. 11080 forx=1to1000:nextx
  286. 11100 if tu>0 then goto12000
  287. 11110 if al<43 then goto12000
  288. 11120 print"[147]":print:tu=tu+1
  289. 11130 print" [211]ie gehen auf [212]our!"
  290. 11140 te=int(60*rnd(1))+1
  291. 11150 tn=te*1000
  292. 11160 ta=te*100
  293. 11170 forx=1to1000:nextx
  294. 12000 print"[147]":print
  295. 12010 print" [213]ebersicht der [194]and '";ne$;"':":print
  296. 12020 print:print" [211]aenger/in       : ";a$
  297. 12030 print:print" [199]itarrist        : ";b$
  298. 12040 print:print" [194]assist          : ";c$
  299. 12050 print:print" [203]eyboard/[203]lavier : ";d$
  300. 12060 print:print" [196]rummer          : ";e$
  301. 12070 print:print" [211]pecialgast      : ";f$
  302. 12073 :
  303. 12075 print:print" [194]anddurchschnitt :";a+b+c+d+e+f
  304. 12080 if g=1 then print:print" [194]lasinstrumente"
  305. 12090 if h=1 then print:print" [194]ackground-[199]esang"
  306. 12100 getx$:ifx$=""then12100
  307. 12110 print"[147]":print
  308. 12115 ok=int(4000*rnd(1))+1
  309. 12117 sv=sa-(ok*(a+b))
  310. 12120 if al<9 then goto12400
  311. 12125 print" [197]innahmen":print:print
  312. 12127 if al<29 then goto 12200
  313. 12130 print" [211]ingle-[214]erkauf:";sv;"$.":gl=gl+sv:print
  314. 12200 ifal<24 then goto 12400
  315. 12210 if ep<>1 then goto 12300
  316. 12220 print" [204][208]-[214]erkauf:";lp;"$.":gl=gl+lp:print
  317. 12300 ifal<30 then goto12400
  318. 12310 if tu<>1 then goto12400
  319. 12320 print" [212]ournee-[214]erdienst:";tn;"$.":gl=gl+tn:print
  320. 12400 if v=0 then goto12900
  321. 12405 if v=0 then goto12900
  322. 12410 vd=(a+b+c+d+e)*3000
  323. 12420 print" [214]ideo-[214]erdienst:";vd;"$.":gl=gl+vd:print
  324. 12900 getx$:ifx$=""then12900
  325. 13000 print"[147]":print
  326. 13010 print" [193]usgaben":print:print
  327. 13020 bag=aa+bb+cc+dd+ee+ff+gg+hh
  328. 13030 print" [194]and-[193]usgaben:";bag;"$.":gl=gl-bag:print
  329. 13040 vk=v*1034
  330. 13050 if v=0 then goto13070
  331. 13060 print" [214]ideo-[203]osten:";vk;"$.":gl=gl-vk:print
  332. 13070 sk=v*2798:ifal<9then goto 13090
  333. 13080 print" [211]ingle-[203]osten:";sa;"$.":gl=gl-sa:print
  334. 13090 getx$:ifx$=""then13090
  335. 13100 print"[147]":print
  336. 13110 print" [193]llgemeines":print:print:zf=int(24*rnd(1))+1
  337. 13120 sc=100-al-zf-(v*9):ifsc<2thensc=1
  338. 13130 print" [211]ingle-[195]hart-[208]osition:";sc:print
  339. 13140 print" [211]pielmonat:";mn:print
  340. 13150 print" ---------------------------------------"
  341. 13160 :
  342. 13165 if gl<15000 then print:print" [211]ie bekommen 10.000 $ [213]nterstuetzung!"
  343. 13166 if sc<11 then print:print" 100.000$ [199]age fuer [215]erbung.":gl=gl+100000
  344. 13167 if sc=1 then print:print" [201]hr [206]ummer-1-[200]it verdient 500.000 $!"
  345. 13168 if sc=1 then gl=gl+500000
  346. 13169 print:print" [203]ontostand:";gl;"$."
  347. 13170 getx$:ifx$=""then13170
  348. 13180 print"[147]":print:ifgl<-250000thengoto40000
  349. 13190 if mn=m then gosub 20000
  350. 13195 if mn=150 then goto30000
  351. 13200 al=0:if gl<15000 then gl=gl+10000:goto1000
  352. 20000 ifj1=10thengoto1000
  353. 20010 print"[147]":print:print" [196]ie [202]ahre sind zuende, moechten [211]ie":print:j1=10
  354. 20020 print" trotzdem weiterspielen?"
  355. 20030 getx$:ifx$=""then20030
  356. 20040 ifx$="n"thengoto50006
  357. 20042 ifx$="j"thengoto20150
  358. 20043 goto20030
  359. 20050 rem ***************************
  360. 20060 rem * all credits by mr.joker *
  361. 20070 rem *   (c)copyright 1990     *
  362. 20080 rem *copy game to all friends *
  363. 20090 rem *  for contacts write to  *
  364. 20100 rem *    toebingstrasse 3     *
  365. 20110 rem *     2120 lueneburg      *
  366. 20120 rem *   kennwort: chartrun    *
  367. 20130 rem ***************************
  368. 20140 :
  369. 20150 goto1000
  370. 30000 print"[147]":print
  371. 30010 print" [196]as [211]piel ist zuende, denn die [194]and"
  372. 30020 print:print" wird zu alt!";gl"$."
  373. 30030 print:print" haben [211]ie gemacht! [196]ie [194]and ":print
  374. 30040 print" '";ne$;"' loest sich auf und wird":print
  375. 30050 print" [199]eschichte. [193]m besten, [211]ie kaufen":print
  376. 30060 print" sich einen [208]rivatgolfplatz in der":print
  377. 30070 print" [196]ritten [215]elt oder so!"
  378. 30090 goto50005
  379. 40000 print"[147] [196]as ist das [197]nde [201]hrer [194]and, denn [211]ie":print
  380. 40001 print" sind hochverschuldet!":print
  381. 40002 print" [196]a kann man leider nichts machen..."
  382. 40003 goto50005
  383. 50000 print"[147] [211]ie haben es geschafft! [211]ie haben [201]hre"
  384. 50001 print" [194]and auf den ersten [208]latz gebracht!"
  385. 50002 print" [211]ie sind jetzt beruehmt, begehrt und"
  386. 50003 print" reich."
  387. 50004 print" [211]ie haben das [211]piel gewonnen!"
  388. 50005 geta$:ifa$=""then50005
  389. 50006 sys64738
  390.